`! Courier NewE*winspool\\prn-priv1\b41-3624-anpic77f1c0\\prn-priv1\b41-3624-aœ”Cÿ€ê od XXLetter ÿÿÿÿDINU"4` AƒqTRJPHAA‚‚V-NTXPO BAPHAA‚‚ÑDRIVER=winspool DEVICE=\\prn-priv1\b41-3624-a OUTPUT=npic77f1c ORIENTATION=0 PAPERSIZE=1 ASCII=1 COPIES=1 DEFAULTSOURCE=265 PRINTQUALITY=600 COLOR=1 DUPLEX=1 YRESOLUTION=600 TTOPTION=2 COLLATE=1 invoice.order_id_ainvoice.order_id_b Arial"@I"Arial"Date Ordered"invoice.order_date Arialinvoice.to_name Arialinvoice.to_address ArialZALLTRIM(invoice.to_city) + ", " + ALLTRIM(invoice.to_region) + " " + invoice.postalcode_b Arialinvoice.to_country Arial"@I"Arial "Unit Price""@I"Arial "Quantity"invoice.company Arialinvoice.address ArialNALLTRIM(invoice.city) + ", " + ALLTRIM(invoice.region) + invoice.postalcode_a Arialinvoice.country Arial"@I"Arial "Bill To""@I"Arial"Product Name""@I"Arial "Extention""@I"Arial "INVOICE""@I"Arial"Order Number"invoice.unit_price_b Arial "99999.99"invoice.quantity Arial "99999.99"invoice.prod_name Arial(invoice.quantity * invoice.unit_price_a Arial "9999999.99""@I"Arial "Freight"invoice.freight Arial "99999.99""@I"Arial "Discount"invoice.order_dsc Arial"@I"Arial "Sub Total""@I"Arial"Total"(nsubtotal + invoice.freight - ndiscount Arial"@$ 999,999.99" nDiscount Arial "9999999.99""@I"Arial"%" nSubtotal Arial"999999999.99""@I"Arial "Ship To""@I"Times New Roman+"Visual FoxPro Report Sample - Invoice.frx" nSubtotal-invoice.quantity * MTON(invoice.unit_price_a)0 nDiscountDiif(invoice.order_dsc > 0, nSubTotal * (invoice.order_dsc / 100), 0)0 Courier NewArialArialArialTimes New RomandataenvironmentaTop = 153 Left = 263 Width = 329 Height = 431 DataSource = .NULL. Name = "Dataenvironment" *PROCEDURE BeforeOpenTables PUBLIC dStart_date,dEnd_Date,cOldPath *!* This report is based on a parameterized query that uses the *!* variables dStart_date and dEnd_Date. *!* The datapick function (datapick.prg) displays a form that allows *!* the user to select a value for the start and end date. *!* First, need to set the path so that the datapick.prg file *!* can be found cOldPath = SET('path') SET PATH TO (HOME() + 'SAMPLES\SOLUTION\REPORTS' + ";" + cOldPath) *!* Now we can run it datePick() ENDPROC PROCEDURE Destroy PUBLIC dStart_date,dEnd_Date *!* Need to set path back to original path SET PATH TO (cOldPath) *!* The three public variables used need to be cleared when *!* the report is exited. RELEASE dStart_Date RELEASE dEnd_Date RELEASE cOldPath ENDPROC Æþòÿ ­­ ‡%T <üU`7÷÷÷þT÷üCûpathvýþ1G)(üCêQûSAMPLES\SOLUTION\REPORTSÙ;÷ýþ ™üCöýþU DSTART_DATE DEND_DATECOLDPATHDATEPICK/ 7÷÷þ G)(ü÷ýþ<÷þ<÷þ<÷þU DSTART_DATE DEND_DATECOLDPATHBeforeOpenTables,ÿÿDestroy¼ÿÿ1ñ;£3±Ãtqq1 ))­cursor½Top = 19 Left = 150 Height = 512 Width = 99 Alias = "invoice" Database = ..\..\data\testdata.dbc CursorSource = "invoice" Name = "Cursor1"